home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 2 / ETO Development Tools 2.iso / Essentials / Developer Essentials Nov 90 / Apple II / HyperCardIIGS / XCMD.p < prev   
Encoding:
Text File  |  1990-04-03  |  4.1 KB  |  110 lines  |  [TEXT/MPS ]
  1. {********************************************
  2. ; File: IdunaXCMD.p
  3. ;
  4. ;
  5. ; Copyright Apple Computer, Inc. 1986-90
  6. ; All Rights Reserved
  7. ;
  8. ********************************************}
  9.  
  10. UNIT IDUNAXCMD;
  11. INTERFACE
  12. USES TYPES;
  13. CONST
  14.  
  15. _IdunaVector = $00E10220;
  16.  
  17. TYPE
  18. Str19 = String[19];
  19. Str31 = String[31];
  20. XCMDPtr = ^XCMDBlock;
  21. XCMDBlock = RECORD
  22.     paramCount : Integer;
  23.     params : ARRAY[1..16] OF Handle;
  24.     returnValue : Handle;
  25.     passFlag : Boolean;
  26.     userID : Integer;
  27. END;
  28. FUNCTION BoolToStr ( bool:Boolean) : Str31 ;
  29. INLINE $A2,$0010,$22,$E10220;
  30. FUNCTION CopyGSString ( src:GSString255Hndl) : GSString255Hndl ;
  31. INLINE $A2,$0020,$22,$E10220;
  32. FUNCTION EvalExpr ( expr:Str255) : Handle ;
  33. INLINE $A2,$0002,$22,$E10220;
  34. FUNCTION ExtToStr ( extendedNumber:Extended) : Str31 ;
  35. INLINE $A2,$0011,$22,$E10220;
  36. FUNCTION FindNamedResource ( resourceType:Integer; resourceName:Str255;VAR theFile:Integer;VAR resourceID:Longint) : Boolean ;
  37. INLINE $A2,$0026,$22,$E10220;
  38. FUNCTION GetFieldByID ( cardFieldFlag:Boolean; fieldID:Integer) : Handle ;
  39. INLINE $A2,$0016,$22,$E10220;
  40. FUNCTION GetFieldByName ( cardFieldFlag:Boolean; fieldName:Str255) : Handle ;
  41. INLINE $A2,$0014,$22,$E10220;
  42. FUNCTION GetFieldByNum ( cardFieldFlag:Boolean; fieldNum:Integer) : Handle ;
  43. INLINE $A2,$0015,$22,$E10220;
  44. FUNCTION  GetGlobal ( globName:Str255) : Handle ;
  45. INLINE $A2,$0012,$22,$E10220;
  46. FUNCTION GetResourceName ( resourceType:Integer; resourceID:Longint) : Str255 ;
  47. INLINE $A2,$0028,$22,$E10220;
  48. FUNCTION GSConcat ( src1:GSString255Hndl; src2:GSString255Hndl) : GSString255Hndl ;
  49. INLINE $A2,$0021,$22,$E10220;
  50. FUNCTION GSStringEqual ( src1:GSString255Hndl; src2:GSString255Hndl) : Boolean ;
  51. INLINE $A2,$0022,$22,$E10220;
  52. FUNCTION GSToPString ( src:GSString255Hndl) : Str255 ;
  53. INLINE $A2,$001E,$22,$E10220;
  54. FUNCTION GSToZero ( src:GSString255Hndl) : Handle ;
  55. INLINE $A2,$0023,$22,$E10220;
  56. FUNCTION LoadNamedResource ( resourceType:Integer; resourceName:Str255) : Handle ;
  57. INLINE $A2,$0025,$22,$E10220;
  58. FUNCTION LongToStr ( posNum:Longint) : Str31 ;
  59. INLINE $A2,$000D,$22,$E10220;
  60. FUNCTION NumToHex ( longNumber:Longint; nDigits:Integer) : Str31 ;
  61. INLINE $A2,$000F,$22,$E10220;
  62. FUNCTION NumToStr ( longNumber:Longint) : Str31 ;
  63. INLINE $A2,$000E,$22,$E10220;
  64. PROCEDURE PasToZero ( str:Str255)  ;
  65. INLINE $A2,$0007,$22,$E10220;
  66. FUNCTION PToGSString ( src:Str255) : GSString255Hndl ;
  67. INLINE $A2,$001F,$22,$E10220;
  68. PROCEDURE ReturnToPas ( zeroStr:Ptr;VAR pasStr:Str255)  ;
  69. INLINE $A2,$001B,$22,$E10220;
  70. PROCEDURE ScanToReturn (VAR scanPtr:Ptr)  ;
  71. INLINE $A2,$001C,$22,$E10220;
  72. PROCEDURE ScanToZero (VAR scanPtr:Ptr)  ;
  73. INLINE $A2,$001D,$22,$E10220;
  74. PROCEDURE SendCardMessage ( msg:Str255)  ;
  75. INLINE $A2,$0001,$22,$E10220;
  76. PROCEDURE SendHCMessage ( msg:Str255)  ;
  77. INLINE $A2,$0005,$22,$E10220;
  78. PROCEDURE SetFieldByID ( cardFieldFlag:Boolean; fieldID:Integer; fieldVal:Handle)  ;
  79. INLINE $A2,$0019,$22,$E10220;
  80. PROCEDURE SetFieldByName ( cardFieldFlag:Boolean; fieldNName:Str255; fieldVal:Handle)  ;
  81. INLINE $A2,$0017,$22,$E10220;
  82. PROCEDURE SetFieldByNum ( cardFieldFlag:Boolean; fieldNum:Integer; fieldVal:Handle)  ;
  83. INLINE $A2,$0018,$22,$E10220;
  84. PROCEDURE SetGlobal ( globName:Str255; globValue:Handle)  ;
  85. INLINE $A2,$0013,$22,$E10220;
  86. PROCEDURE SetResourceName ( resourceType:Integer; resourceID:Longint; resourceName:Str255)  ;
  87. INLINE $A2,$0027,$22,$E10220;
  88. FUNCTION StringEqual ( str1:Str255; str2:Str255) : Boolean ;
  89. INLINE $A2,$001A,$22,$E10220;
  90. FUNCTION StringLength ( strPtr:Ptr) : Longint ;
  91. INLINE $A2,$0003,$22,$E10220;
  92. FUNCTION StringMatch ( stringPattern:Str255; target:Ptr) : Ptr ;
  93. INLINE $A2,$0004,$22,$E10220;
  94. FUNCTION StrToBool ( str:Str31) : Boolean ;
  95. INLINE $A2,$000B,$22,$E10220;
  96. FUNCTION StrToExt ( str:Str31) : Extended ;
  97. INLINE $A2,$000C,$22,$E10220;
  98. FUNCTION StrToLong ( str:Str31) : Longint ;
  99. INLINE $A2,$0009,$22,$E10220;
  100. FUNCTION StrToNum ( str:Str31) : Longint ;
  101. INLINE $A2,$000A,$22,$E10220;
  102. PROCEDURE ZeroBytes ( dstPtr:Ptr; longCount:Longint)  ;
  103. INLINE $A2,$0006,$22,$E10220;
  104. FUNCTION ZeroToGS ( src:Handle) : GSString255Hndl ;
  105. INLINE $A2,$0024,$22,$E10220;
  106. PROCEDURE ZeroToPas ( zeroStr:Ptr;VAR pasStr:Str255)  ;
  107. INLINE $A2,$0008,$22,$E10220;
  108. IMPLEMENTATION
  109. END.
  110.